home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / wb / Gurus99_15O1.lha / Gurus99 / Install < prev    next >
Text File  |  1999-01-11  |  4KB  |  195 lines
  1. ; $VER: Install Gurus99
  2. ; © by Demon 1999
  3.  
  4. (complete 0)
  5.  
  6. (if (= @language "deutsch")
  7. (
  8.     (set #welcome
  9.     (cat "\n\n\nHerzlich willkommen beim Gurus99 - Installer\n\n"
  10.     "Dieser Installer installiert Gurus99 auf Deinen Amiga\n\n"
  11.     "(Alte Versionen werden gelöscht)\n\n\n"
  12.     "Gurus99  © by Demon 1999"
  13.     ))
  14.     (set #choose-text
  15.     (cat "Wähle das Verzeichnis wohin Gurus99 installiert werden soll. Ein Verzeichnis namens Gurus99 wird dort angelegt."
  16.     ))
  17.     (set #choose-icons
  18.     (cat "Welche Icons sollen installiert werden?"
  19.     ))
  20.     (set #choose-guide
  21.     (cat "Wähle Deinen liebsten Amigaguide-Reader:"
  22.     ))
  23.     (set #choose-html
  24.     (cat "Wähle Deinen liebsten HTML-Reader:"
  25.     ))
  26.     (set #exit
  27.     (cat "\n\nViel Spaß mit Gurus99"
  28.     ))
  29. ))
  30.  
  31. (if (= @language "english")
  32. (
  33.     (set #welcome
  34.     (cat "\n\n\nWelcome to the Gurus99 - Installer\n\n"
  35.     "This Installer will install Gurus99 on your Amiga\n\n"
  36.     "(Old versions will be deleted)\n\n\n"
  37.     "Gurus99  © by Demon 1999"
  38.     ))
  39.     (set #choose-text
  40.     (cat "Choose the destination drawer for the Gurus99 archive. A directory called Gurus99 will be created there."
  41.     ))
  42.     (set #choose-icons
  43.     (cat "Which icons should be installed?"
  44.     ))
  45.     (set #choose-guide
  46.     (cat "Choose your favourite Amigaguide-Reader:"
  47.     ))
  48.     (set #choose-html
  49.     (cat "Choose your favourite HTML-Reader:"
  50.     ))
  51.     (set #exit
  52.     (cat "\n\nHave fun with Gurus99"
  53.     ))
  54. ))
  55. ;********************
  56. (if (= @language "deutsch")
  57.     (run "pr/sync SCRIPT=INST_D")
  58. )
  59. (if (= @language "english")
  60.     (run "pr/sync SCRIPT=INST_E")
  61. )
  62. ;********************
  63. (message #welcome)
  64.  
  65. (welcome)
  66.  
  67. (set @default "SYS:")
  68. (set @default (askdir
  69.     (prompt #choose-text)
  70.     (help (cat @askdir-help))
  71.     (default @default))
  72. )
  73.  
  74. (delete %s (tackon @default "gurus/data/#?"))
  75. (delete %s (tackon @default "gurus/#?"))
  76. (delete %s (tackon @default "gurus/"))
  77. (delete %s (tackon @default "gurus.info"))
  78. (delete %s (tackon @default "gurus9#?/data/#?"))
  79. (delete %s (tackon @default "gurus9#?/brushes/#?"))
  80. (delete %s (tackon @default "gurus9#?/#?"))
  81. (delete %s (tackon @default "gurus9#?"))
  82. (complete 1)
  83. ;********************
  84. (copyfiles (source ".inf") (dest @default) (newname "Gurus99.info") (optional "nofail") )
  85.  
  86. (set #ICON
  87.     (askchoice
  88.     (prompt #choose-icons)
  89.     (help (cat @askchoice-help))
  90.     (default 0)
  91.     (choices
  92.         "#1: MagicWB"
  93.         "#2: NewIcons"
  94.         )
  95.     )
  96. )
  97. (if (= #ICON 1)
  98.     (copyfiles (source ".inf_ni") (dest @default) (newname "Gurus99.info") (optional "nofail") )
  99. )
  100.  
  101. (makedir @default)
  102.  
  103. (set @default (tackon @default "Gurus99"))
  104.  
  105. (complete 2)
  106. ;********************
  107. (copyfiles
  108.     (source "G99")
  109.     (dest    @default)
  110.     (newname "Gurus99")
  111.     (infos)
  112. )
  113. (complete 11)
  114.  
  115. (copyfiles
  116.     (source "G.htm")
  117.     (dest    @default)
  118.     (newname "Gurus99.html")
  119.     (infos)
  120. )
  121. (complete 12)
  122.  
  123. (copyfiles
  124.     (source "Info")
  125.     (dest    @default)
  126.     (infos)
  127. )
  128. (complete 13)
  129.  
  130. (copyfiles
  131.     (source "GM_vs._Bill_Gates.txt")
  132.     (dest @default)
  133. )
  134. (complete 14)
  135. ;********************
  136. (copyfiles
  137.     (source "dt")
  138.     (dest    (tackon @default "data"))
  139.         (pattern "#?")
  140. )
  141. (complete 96)
  142.  
  143. (copyfiles
  144.     (source "br")
  145.     (dest    (tackon @default "brushes"))
  146.         (pattern "#?")
  147. )
  148. (complete 97)
  149.  
  150. (copyfiles
  151.     (source "ft/")
  152.     (dest    "Fonts:")
  153.         (pattern "#?")
  154. )
  155. ;********************
  156. (if (= #ICON 1)
  157.  (copyfiles (source "ni/") (dest @default) (pattern "#?") )
  158. )
  159. (complete 98)
  160. ;********************
  161. (set @ttguide "c:")
  162. (set @ttguide (askfile
  163.     (prompt #choose-guide)
  164.     (help (cat @askfile-help))
  165.     (default @ttguide))
  166. )
  167. (tooltype
  168.     (dest (tackon @default "Gurus99"))
  169.         (setdefaulttool @ttguide)
  170.         (settooltype "(kissdemon@gmx.net)" "")
  171. )
  172. (tooltype
  173.     (dest (tackon @default "Info"))
  174.         (setdefaulttool @ttguide)
  175.         (settooltype "(kissdemon@gmx.net)" "")
  176. )
  177. (complete 99)
  178. ;********************
  179. (set @tthtml "c:")
  180. (set @tthtml (askfile
  181.     (prompt #choose-html)
  182.     (help (cat @askfile-help))
  183.     (default @tthtml))
  184. )
  185. (tooltype
  186.     (dest (tackon @default "Gurus99.html"))
  187.         (setdefaulttool @tthtml)
  188.         (settooltype "(kissdemon@gmx.net)" "")
  189. )
  190. (complete 100)
  191. ;********************
  192. (run "pr/sync COMMAND=QUIT")
  193. (run "dt/VT Kiss")
  194. (EXIT #exit (quiet))
  195.